<%@ Language=VBScript %>
<%Response.Expires = -1%>
<%
	dim sMode, sClientName, lPersonId, lUserId, lClientId, sRegistered
	dim sLogon, lAccessLevel, dtLastAccessed, bbCard
	
	sMode = Request.QueryString("sMode")
	
	lPersonId = Request.QueryString("lPersonId")
	lUserId = Request.QueryString("lUserId")
	lClientId = Request.QueryString("lClientId")
	sRegistered = Request.QueryString("sRegistered")
	sClientName = Request.QueryString("sClientName")
	sLogon = Request.QueryString("sLogon")
	lAccessLevel = Request.QueryString("lAccessLevel")
	dtLastAccessed = Request.QueryString("dtLastAccessed")
	bbCard = Request.QueryString("bbCard")
	
	If trim(sMode) = "" then 
		sMode = "A"
	end if
	
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<!-- #include file = "Session.inc"-->
<script language=VBScript>
	sub window_onload()
		dim sTemp, sMode
		
		sMode = document.all("sMode").value
		'sTemp = document.all("sRefreshRegistered").value
		sTemp = "<%=getsessioninfo("sRegistered")%>"

		If sMode <> "V" Then
			If trim(sTemp) <> parent.document.all("sRegistered").value then
				If trim(sMode) = "A" Then
					'parent.parent.parent.parent.parent.document.location.href = "/MyLife/pages/Logon/Login.asp"
					parent.document.location.href = "/MyLife/index.asp"
				Else
					parent.returnvalue="TIMEOUT"
					parent.window.close
				End If
			end if
		End If
	end sub
</script>
<title>MyLife Refresh</title>
</HEAD>

<BODY>
<form name=TimerRefresh>
<input type=hidden name=sMode value="<%=sMode%>">

<input name=lPersonId value="<%=lPersonId%>">
<input name=lUserId value="<%=lUserId%>">
<input name=lClientId value="<%=lClientId%>">
<input name=sRegistered value="<%=sRegistered%>">
<input name=sClientName value="<%=sClientName%>">
<input name=sLogon value="<%=sLogon%>">
<input name=lAccessLevel value="<%=lAccessLevel%>">
<input name=dtLastAccessed value="<%=dtLastAccessed%>">
<input name=bbCard value="<%=bbCard%>">

<%	
	if trim(getsessioninfo("sRegistered")) = "" Then
		SetSessionInfo "sRegistered", sRegistered
		SetsessionInfo "lPersonId",lPersonId
		SetsessionInfo "lUserId",lUserId
		SetsessionInfo "lClientId",lClientId
		SetSessionInfo "sClientName",sClientName
		SetSessionInfo "sLogon",sLogon
		SetSessionInfo "lAccessLevel",lAccessLevel
		SetSessionInfo "dtLastAccessed",dtLastAccessed
		SetSessionInfo "bbCard",bbCard
	End If
%>
<%' This page is used to refresh the Timer by making a server trip%>
</form>
</BODY>
</HTML>
